home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / PipeMan - 263389122001.psc / modMap.bas < prev    next >
Encoding:
BASIC Source File  |  2001-09-11  |  3.0 KB  |  113 lines
  1. Attribute VB_Name = "modMap"
  2. Sub NextMap()
  3.   CurrentMap = CurrentMap + 1
  4.   
  5.   GameOver = False
  6.   FireTime = False
  7.   SpeedMulti = False
  8.   
  9.   Bonus = 0
  10.   BonusMulti = 1
  11.   UpdateBoard
  12.   
  13.   ResetField
  14.   GenBoxes
  15.   
  16.   Select Case CurrentMap
  17.     Case 1
  18.       PlaceStart 4, 4, 103
  19.       TriggerTime = 31
  20.       WinPipe = 10
  21.       Speed = 50
  22.       frmMain.lblGameInfo.Caption = "Beta map"
  23.       Field(3, 3).PipeType = 13
  24.       Field(6, 6).PipeType = 8
  25.       Field(7, 9).PipeType = 9
  26.       Field(6, 4).PipeType = 10
  27.       Field(8, 4).PipeType = 11
  28.       Field(7, 7).PipeType = 101
  29.       
  30.       Field(5, 5).PipeType = 12
  31.       Teleport(1).X = 5
  32.       Teleport(1).Y = 5
  33.       Field(8, 8).PipeType = 12
  34.       Teleport(2).X = 8
  35.       Teleport(2).Y = 8
  36.     Case 2
  37.       frmMain.lblGameInfo.Caption = "Old and bad map"
  38.       PlaceStart Int(Rnd * 9) + 1, Int(Rnd * 9) + 1, 102 + Int(Rnd * 4)
  39.       TriggerTime = 26
  40.       WinPipe = 20
  41.       Speed = 50
  42.     Case 3
  43.       frmMain.lblGameInfo.Caption = "Old and bad map"
  44.       PlaceStart Int(Rnd * 9) + 1, Int(Rnd * 9) + 1, 102 + Int(Rnd * 4)
  45.       TriggerTime = 21
  46.       WinPipe = 25
  47.       Speed = 40
  48.     Case 4
  49.       frmMain.lblGameInfo.Caption = "Old and bad map"
  50.       PlaceStart Int(Rnd * 9) + 1, Int(Rnd * 9) + 1, 102 + Int(Rnd * 4)
  51.       TriggerTime = 11
  52.       WinPipe = 30
  53.       Speed = 40
  54.     Case 5
  55.       frmMain.lblGameInfo.Caption = "Old and bad map"
  56.       PlaceStart Int(Rnd * 9) + 1, Int(Rnd * 9) + 1, 102 + Int(Rnd * 4)
  57.       TriggerTime = 6
  58.       WinPipe = 10
  59.       Speed = 50
  60.     Case 6
  61.       frmMain.lblGameInfo.Caption = "Old and bad map"
  62.       For X = 1 To 10 Step 4
  63.         For Y = 1 To 10 Step 4
  64.           Field(X, Y).PipeType = 101
  65.           Field(X, Y).Watered = True
  66.         Next
  67.       Next
  68.       
  69.       PlaceStart 2, 2, 102 + Int(Rnd * 4)
  70.       TriggerTime = 31
  71.       WinPipe = 35
  72.       Speed = 35
  73.     Case 7
  74.       frmMain.lblGameInfo.Caption = "Old and bad map"
  75.       PlaceStart Int(Rnd * 9) + 1, Int(Rnd * 9) + 1, 102 + Int(Rnd * 4)
  76.       TriggerTime = 31
  77.       WinPipe = 35
  78.       Speed = 35
  79.     Case 8
  80.       frmMain.lblGameInfo.Caption = "Old and bad map"
  81.       PlaceStart Int(Rnd * 9) + 1, Int(Rnd * 9) + 1, 102 + Int(Rnd * 4)
  82.       TriggerTime = 41
  83.       WinPipe = 50
  84.       Speed = 20
  85.     Case 9
  86.       frmMain.lblGameInfo.Caption = "Old and bad map"
  87.       PlaceStart Int(Rnd * 9) + 1, Int(Rnd * 9) + 1, 102 + Int(Rnd * 4)
  88.       TriggerTime = 61
  89.       WinPipe = 50
  90.       Speed = 10
  91.     Case 10
  92.       frmMain.lblGameInfo.Caption = "Old and bad map"
  93.       For X = 1 To 10 Step 2
  94.         For Y = 1 To 10 Step 2
  95.           Field(X, Y).PipeType = 101
  96.           Field(X, Y).Watered = True
  97.         Next
  98.       Next
  99.       
  100.       PlaceStart 5, 5, 102 + Int(Rnd * 4)
  101.       
  102.       TriggerTime = 41
  103.       WinPipe = 60
  104.       Speed = 25
  105.     Case 11
  106.       frmMain.lblGameInfo.Caption = "You have made it, incredible"
  107.       Force = True
  108.       GameOver = True
  109.   End Select
  110.   
  111.   DrawField
  112. End Sub
  113.